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ZTITLE "EDTSPRPUSH = new parse node’ | 
MODULE EDTSPRPUSH ( ! New parse node 
geen = 'v04-000' ! File: PRPUSH.BLI Edit: JBS1004 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
USED AND COPIED 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE 

tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= aeponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 ' 
00 ' 
00 ! 
4 ABSTRACT: 
09 : Create a new parse node. 
a8 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
99 AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 
9 MODIFIED BY: 
0 i 1-001 = Original. DJS 25-Feb-1981. This module was created by 
04 ! oxtrecs ing routine PUSH from module PARSER. 
004 ! 1-008 - Regularize headers. JBS 12-Mar-1981 
004 ! 1-003 - Use new message codes. JBS 04-Aug-1981 
s'9 } 1-004 - Improve the appearance of the Listing. JBS 17-Jun-1983 
005 
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FACILITY: EDT -- The DEC Standard Editor 
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EQUATED SYMBOLS: 
OWN STORAGE: 


EQUIRE "EDTSRC: TRAROUNAM' ; 
INCLUDE FILES: 


ORWARD ROUTINE 
REQUIRE ‘EDTSRC:PARLITS'; 


REQUIRE ‘EDTSRC:EDTREQ'; 
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EDTSPRPUSH EDTSPRPUSH = new parse node 16-Sep-1984 01:22:33 VAK-11 Bliss-32 V4.0-74 Page 3 EOTS 
42000 EDTSSPA_NEW_NOD - new parse node 12-808 -1 3b ee ae DLEKSVMGMASTERSCEDT SRCTPRPUSH.BLI:1 . (3) | V04- 
H 7 4 ] ZSBTTL "EDTSSPA_NEW_NOD = new parse node' | : , 
: § 942 1 GLOBAL ROUTINE EDTS$SPA_NEW_NOD ( ' New parse node s 4 
3 945 1 NT ' Stored in CNODE_TYPE] g 4 
; (91 944 1 TYP i Stored in CCOM_RUM) 3; 4 
3 3 945 1 )z ; 4 
 @ 2e8 1 g 4 
; & 947 1 44 > 4 
3 95 948 1 ! FUNCTIONAL DESCRIPTION: 3 4 
; +] 949 1! 3s 4 
Ea = 950 1! Create a semantic node of the specified type and subtype. If the 3s 4 
: 38 2) 1! stack overflows, return a 0 otherwise, return the address of the new 3s 4 
3 9 § 1! node. $s 4 
: 100 9535 1! 3 4 
; 6101 0954 1 ! FORMAL PARAMETERS: ; 4 
; 108 955 1! : 4 
; 10 B29 1! NT Stored in CNODE_TYPE) 3 4 
> 104 957 1! ; 4 
; 105 0958 1! TYP Stored in CCOM_NUM) 3 4 
; 106 0959 1! ; 4 
; 107 0960 1 ! IMPLICIT INPUTS: ; 4 
3; 108 0961 1! 3 4 
3 109 B206 es EDT$$Z_PA_STK 3 4 
3; 110 0965 1! EDT$$G_PA_SP 3 4 
3 (6491 964 1! 2 4 
3 \\¢ 0365 1 ! IMPLICIT OUTPUTS: 3 4 
: 11 966 1! 3 4 
> 114 0967 1! EDT$$G_PA_ERRNO 3 4 
: 115 0968 1! EDT$$Z_PA_STK 7 4 
; 116 0969 1! EDT$$G_PA_SP : 4 
: 117 0970 1! 3; 4 
3; «118 0971 1 ! ROUTINE VALUE: ; 4 
3: 6119 O76 1! ; (4 
; 120 0973 1! 0 = parse stack overflow s 4 
: } 1 gore : } non-zero = address of new parse semantic node : , 
: 138 0976 1! SIDE EFFECTS: : 4 
: 126 0977 1! 3 4 
; 125 0978 1! NONE 3 4 
; 126 0979 1! s 4 
3 139 0980 1 !-- : 4 
: 128 981 1 3 4 
g 136 o8¢ BEGIN : 
: 131 984 EXTERNAL . 4 
; 136 985 EDT$$G_PA_ERRNO, ! Error _number of parsing error. 3 4 
, 3S 986 EDT$$Z_PA_STK : BLOCKVECTOR CNUM_NODES, NODE_SIZE, BYTE] FIELD (NODE_FIELDS), s § 
: Hf 987 EDTS$$G_PA_SP; i—@- 
: 135 988 gs 3 
3 ' 444 MESSAGES ((PARSTKOVF)); : i 
; 138 991 LOCAL mf 
3 1% +44 NODE : REF NODE_BLOCK; : i 
; 141 994 EDT$$G_PA_SP = .EDT$$G_PA_SP + 1; : 
: 128 0996 IF (.EDT$$G_PA_SP GEQU NUM_NODES) ; 


4 
EDTSPRPUSH EDTSPRPUSH = new parse node 1b-s ep-1984 3 VAX-11 Bliss-32 V4 e 4 
04-000 EDTSSPA_NEW_NOD : new parse node 14- a 198¢ 9}: $2: ii DISKSVMSMASTER: CED ° She PRPUSH.BLI;1 ese (3) 
> 146 997 THEN 
> 6145 14 BEGIN 
3 148 99 EDTSSG_PA_ERRNO = EDTS_PARSTKOVF; 
3 96 0 RETURN’ (OJ; 
: 15 1903 ' 
s 190 1 § th = EDT$$Z_PA_STK C. ED TSS. PA_SP, NODE_TYPE); 
; 6151 1004 CHSFILL (0, NODE - SIZE, .NODE)> 
a5 ; 1 95 NODE. NODE TYPEJ~= .Nf;- 
s ¥ 10 $ NODE CCOM RUM) = .TY 3 
s 136 1 RETURN (.RNODE); 
3 399 1008 END; ! of routine EDTSSPA_NEW_NOD 


TITLE EDTS 
IDENT \V04-0 
EXTRN EDT$$G_PA_ERR 
EXTRN EDT$$Z~PA~ STK. “EDTS$6. PA_SP 
EXTRN EDT$_PARSTKOVE 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OOFC 00000 ENTRY EDTS$SPA_NEW_NOD, Save R2,R3,R4,R5,R6,R7 : 0942 
57 000000006 09 9E 00002 MOVAB EDT$$G_ PA _SP, R? : 
67 D6 00009 INCL EDTS$$G~PA~SP + 0994 
50 67 DO 90008 MOVL EDTSSG° PAR “Sp, RO + 0996 
14 50 D1 O000E CMPL = RO, - #20 : 
0D 1F 00011 BLSSU-1$ : 
000000006 00 000000006 8F 00 00013 MOVL § #EDTS_PARSTKOVF, EDTS$$G_PA_ERRNO : 0999 
1E 11 OOO1E BRB 2$ + 1000 
50 20 C4 90020 1$: MULL2 #32, RO + 1003 
56 0000000060040 9 00023 MOVAB EDT tés5 PA_STKCRO], NODE ; 
20 00 6E 00 2¢ 00 B movCS #0, (SP),7#0, #32. (NODE) + 1004 
9% @o 
66 06 ac 90 Sbo84 MOVANT, (NODE) : 1005 
01 Ab 08 AC 90 00035 MOVB TYP, 1(NODE) : 1006 
50 56 DO O003A MOVL NODE, RO : 1007 
04 0003p RET : 
50 D4 0005E 2$: CLRL ~—_ RO : 1008 
04 0004 RET ; 


; Routine Size: 65 bytes, Routine Base: _EDTSCODE + 0000 


; 156 1009 
s 97 1010 
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EDTSPRPUSH EDTSPRPUSH = new parse node -Se 4 3 VAX-11 Bliss-32 V4.0-7 
042000 EDTSSPA_NEW_NOD : new parse node 12:8 + 138 9}; $f: ii DISKSVMSMASTER: cto i she PRPUSH.BLI;1 _ (43 
; 159 1011 1 END ! of l DT$PRPUSH 3 
160 1014 i of module E us 
3; «6161 101 0 ELUDOM : 
: 5 
s 35 
4 
7 
; PSECT SUMMARY ; 3 
; Name Bytes Attributes 3 é 
;  EDTSCODE 65 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 3 
3; 5 
7 
: Library Statistics 3 ; 
; coccecee Symbols -------- Pages Processing ; § 
; File Total Loaded Percent Mapped Time : ; 
: _$255$DUA28:CEDT.SRCJEDT.L32:1 377 51 13 40 00:00.2 - | 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 2 
7 5 
a 3 
- 9 
s 3 
7 
: COMMAND QUALIFIERS ; é 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=L1IS$:PRPUSH/OBJ=O0BJ$:PRPUSH MSRC$:PRPUSH.BLI1/UPDATE=(ENH$:PRPUSH) ; é 
3; Size: 65 code + 0 data bytes F 6 
3; Run "ties 13.4 s 6 
3 Slassed. Time: 0:17. s 6 
3 Lines/CPU Min: 539 » ¢ 
3; Lexemes/CPU-Min: 14477 s 6 
3 penety Used: 99 pages ae | 
3; Compilation Complete 3 é 
: 6 
g ¢ 
3 ¢ 
s ¢ 
gs ¢ 
3 ¢ 
3 ¢ 
gs ¢ 
: 9 
s ¢ 
gz 4 
z ¢ 
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